home *** CD-ROM | disk | FTP | other *** search
/ LOGIC Apps / Logic-APPLE_II_APPS.iso / mac / LOGIC Apple II 5.25" Library - ProDOS / PRO001.dsk / FIN / LOAN.CALC.TERM.bas < prev    next >
BASIC Source File  |  2012-02-16  |  785b  |  26 lines
  1. 10  PRINT "TERM OF A LOAN"
  2. 20  PRINT 
  3. 29  REM  - STATEMENTS 30 TO 100 REQUEST USER INPUT
  4. 30  PRINT "REGULAR PAYMENT";
  5. 40  INPUT R
  6. 50  PRINT "PRINCIPAL";
  7. 60  INPUT P
  8. 70  PRINT "ANNUAL INTEREST RATE";
  9. 80  INPUT I
  10. 90  PRINT "NUMBER OF PAYMENTS PER YEAR";
  11. 100  INPUT N
  12. 108  REM  - CALCULATE TERM IN YEARS BY FORMULA;
  13. 109  REM  - INTEREST CONVERTED FROM PERCENT TO DECIMAL FOR CALCULATION
  14. 110 Y =  -( LOG(1 -(P *(I/100))/(N *R))/( LOG(1 +I/100/N) *N))
  15. 114  REM  - CALCULATE YEARS AND MONTHS FROM YEARS
  16. 115 M =  INT(Y *12 +.5)
  17. 116 Y0 =  INT(M/12)
  18. 117 M = M -Y0 *12
  19. 119  REM  - PRINT RESULTS
  20. 120  PRINT "TERM = ";Y0;" YEARS, ";M;" MONTHS"
  21. 130  PRINT 
  22. 139  REM  - RESTART OR END PROGRAM?
  23. 140  PRINT "MORE DATA? (1=YES, 0=NO)";
  24. 150  INPUT X
  25. 160  IF X = 1  THEN 20
  26. 170  PRINT "<CTRL-D>RUN HELLO"